Time Warp/Time Warp.iso/mac/Time Warp/Time Warp.DXR/Shared_34.ls

Text File | 1997-05-23 | 1.3 KB | 54 lines

on KeyboardScript
  global discs, discsLoaded, gems
  if the keyCode = 49 then
    set num to the castNum of sprite 5
    if num = 0 then
      nothing()
    else
      set movieName to the name of cast num
      if movieName contains ".MOV" then
        if the movieRate of sprite 5 = 1 then
          set the movieRate of sprite 5 to 0
          updateStage()
        else
          if the movieRate of sprite 5 = 0 then
            set the movieRate of sprite 5 to 1
            updateStage()
          end if
        end if
      end if
    end if
  else
    if the commandDown and (the key = "d") then
      if discs = discsLoaded then
        giveDisc("generic")
      else
        alert("Nur1 Bonus-Disk zur Zeit!")
      end if
    else
      if the commandDown and (the key = "g") then
        if gems = 0 then
          set gems to gems + 1
          LocateSprite(509)
        else
          alert("Nur 1 Bonus-Edelstein zur Zeit!")
        end if
      else
        if the commandDown and (the key = "q") then
          quit()
        else
          if the keyCode = 124 then
            unsetQT(5)
            go(marker(1))
          else
            if the keyCode = 123 then
              unsetQT(5)
              go(marker(-1))
            end if
          end if
        end if
      end if
    end if
  end if
end